home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / Compiler / Builtins / Character.m < prev    next >
Text File  |  1990-08-16  |  2KB  |  62 lines
  1. % 
  2. % @(#)Character.m    1.2  4/11/88
  3. %
  4. export _CharacterObject to "Builtins"
  5.  
  6. const _CharacterObject == immutable object _CharacterObject
  7.   export getSignature, create, literal
  8.  
  9.   const CharacterType == immutable type CharacterType
  10.     function ord -> [r : Integer]
  11.     function > [o : Character] -> [r : Boolean]
  12.       % r <- self > o
  13.     function >= [o : Character] -> [r : Boolean]
  14.       % r <- self >= o
  15.     function < [o : Character] -> [r : Boolean]
  16.       % r <- self < o
  17.     function <= [o : Character] -> [r : Boolean]
  18.       % r <- self <= o
  19.     function = [o : Character] -> [r : Boolean]
  20.       % r <- self = o
  21.     function != [o : Character] -> [r : Boolean]
  22.       % r <- self != o
  23.     function asString -> [s : String]
  24.       % s <- "c" where c is the character
  25.   end CharacterType
  26.   function getSignature -> [result : Signature]
  27.     result <- CharacterType
  28.   end getSignature
  29.   function literal [x : Integer] -> [r : CharacterType]
  30.     primitive 804 [r] <- [x]
  31.   end literal
  32.   function create -> [result : CharacterType]
  33.     result <- immutable object aCharacter
  34.       export >, >=, <, <=, =, !=, asString, ord
  35.       function > [o : Character] -> [r : Boolean]
  36.     primitive 004 [r] <- [o]
  37.       end >
  38.       function >= [o : Character] -> [r : Boolean]
  39.     primitive 104 [r] <- [o]
  40.       end >=
  41.       function < [o : Character] -> [r : Boolean]
  42.     primitive 204 [r] <- [o]
  43.       end <
  44.       function <= [o : Character] -> [r : Boolean]
  45.     primitive 304 [r] <- [o]
  46.       end <=
  47.       function = [o : Character] -> [r : Boolean]
  48.     primitive 404 [r] <- [o]
  49.       end =
  50.       function != [o : Character] -> [r : Boolean]
  51.     primitive 504 [r] <- [o]
  52.       end !=
  53.       function asString -> [s : String]
  54.     primitive 604 [s] <- []
  55.       end asString
  56.       function ord -> [r : Integer]
  57.     primitive 704 [r] <- []
  58.       end ord
  59.     end aCharacter
  60.   end create
  61. end _CharacterObject
  62.